object AccountsForm: TAccountsForm Left = 285 Top = 197 BorderStyle = bsDialog Caption = 'Account Wizard - BlogJet' ClientHeight = 304 ClientWidth = 466 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poMainFormCenter OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Shape1: TShape Left = 4 Top = 0 Width = 462 Height = 263 Align = alClient Pen.Color = clWhite end object Bevel1: TBevel Left = 0 Top = 263 Width = 466 Height = 2 Align = alBottom Shape = bsBottomLine end object Image4: TImage Left = 0 Top = 0 Width = 4 Height = 263 Align = alLeft AutoSize = True Picture.Data = {} end object Notebook1: TNotebook Left = 4 Top = 0 Width = 462 Height = 263 Align = alClient Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] PageIndex = 5 ParentColor = False ParentFont = False TabOrder = 0 OnPageChanged = Notebook1PageChanged object TPage Left = 0 Top = 0 Caption = 'Welcome' object Label5: TLabel Left = 152 Top = 122 Width = 245 Height = 26 Caption = '(The wizard will help you to choose a blog provider and subscrib' + 'e.)' Font.Charset = DEFAULT_CHARSET Font.Color = clGrayText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False WordWrap = True end object Label6: TLabel Left = 152 Top = 180 Width = 232 Height = 26 Caption = '(The wizard will help you to configure BlogJet to post to your e' + 'xisting blog.)' Font.Charset = DEFAULT_CHARSET Font.Color = clGrayText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False WordWrap = True end object Image1: TImage Left = 8 Top = 40 Width = 100 Height = 210 AutoSize = True Picture.Data = {} end object Label9: TLabel Left = 16 Top = 8 Width = 245 Height = 24 Caption = 'Welcome to Account Wizard!' Font.Charset = DEFAULT_CHARSET Font.Color = 14059352 Font.Height = -19 Font.Name = 'Trebuchet MS' Font.Style = [] ParentFont = False Transparent = True end object Label20: TLabel Left = 136 Top = 48 Width = 296 Height = 26 Caption = 'This wizard will guide you through your blog account creation. Y' + 'ou should create at least one account to post with BlogJet.' WordWrap = True end object NewBlogRadio: TRadioButton Left = 136 Top = 104 Width = 209 Height = 17 Caption = 'I do not have a blog yet' Checked = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 0 TabStop = True end object HaveBlogRadio: TRadioButton Left = 136 Top = 160 Width = 201 Height = 17 Caption = 'I already have a blog' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 1 end end object TPage Left = 0 Top = 0 Caption = 'NewBlog' object Label7: TLabel Left = 16 Top = 8 Width = 328 Height = 24 Caption = 'Select the blog provider and subscribe' Font.Charset = DEFAULT_CHARSET Font.Color = 14059352 Font.Height = -19 Font.Name = 'Trebuchet MS' Font.Style = [] ParentFont = False end object Label8: TLabel Left = 16 Top = 32 Width = 369 Height = 13 Caption = 'You can get more information and subscribe by clicking the name ' + 'of provider.' end object Webbrowser1: TEmbeddedWB Left = 16 Top = 64 Width = 425 Height = 185 TabOrder = 0 OnNewWindow2 = WebBrowser1NewWindow2 OnDocumentComplete = WebBrowser1DocumentComplete DownloadOptions = [DLCTL_DLIMAGES, DLCTL_VIDEOS, DLCTL_BGSOUNDS] UserInterfaceOptions = [] PrintOptions.Margins.Left = 19.050000000000000000 PrintOptions.Margins.Right = 19.050000000000000000 PrintOptions.Margins.Top = 19.050000000000000000 PrintOptions.Margins.Bottom = 19.050000000000000000 PrintOptions.Header = '&w&bPage &p of &P' PrintOptions.HTMLHeader.Strings = ( '') PrintOptions.Footer = '&u&b&d' PrintOptions.Orientation = poPortrait ReplaceCaption = False EnableDDE = False fpExceptions = True ControlData = { 4C000000ED2B00001F1300000000000000000000000000000000000000000000 000000004C000000000000000000000001000000E0D057007335CF11AE690800 2B2E126208000000000000004C0000000114020000000000C000000000000046 8000000000000000000000000000000000000000000000000000000000000000 00000000000000000100000000000000000000000000000000000000} end end object TPage Left = 0 Top = 0 Caption = 'Settings' object Label1: TLabel Left = 134 Top = 56 Width = 44 Height = 13 Caption = 'Provider:' end object Label2: TLabel Left = 152 Top = 152 Width = 26 Height = 13 Caption = 'Host:' end object Label3: TLabel Left = 154 Top = 200 Width = 24 Height = 13 Caption = 'Port:' end object Label4: TLabel Left = 150 Top = 176 Width = 28 Height = 13 Caption = 'Page:' end object Label10: TLabel Left = 136 Top = 104 Width = 234 Height = 26 Caption = 'Custom host settings (do not change unless you are using custom ' + 'blog server):' WordWrap = True end object Image2: TImage Left = 8 Top = 40 Width = 100 Height = 210 AutoSize = True Picture.Data = {} end object Label21: TLabel Left = 16 Top = 8 Width = 204 Height = 24 Caption = 'Edit connection settings' Font.Charset = DEFAULT_CHARSET Font.Color = 14059352 Font.Height = -19 Font.Name = 'Trebuchet MS' Font.Style = [] ParentFont = False end object JvLinkLabel1: TJvLinkLabel Left = 136 Top = 232 Width = 97 Height = 13 Caption = 'Configure Proxy...' Text.Strings = ( 'Configure Proxy...') Transparent = False Layout = tlTop LinkColor = clHighlight LinkColorClicked = clRed LinkColorHot = clHotLight LinkStyle = [fsUnderline] HotLinks = True AutoHeight = True MarginWidth = 0 MarginHeight = 0 OnClick = JvLinkLabel1Click end object ComboBoxEx1: TComboBoxEx Left = 192 Top = 51 Width = 169 Height = 22 ItemsEx = <> Style = csExDropDownList ItemHeight = 16 TabOrder = 0 OnSelect = ComboBoxEx1Select Images = MainForm.BlogLogoImages DropDownCount = 11 end object HostEdit: TEdit Left = 192 Top = 148 Width = 161 Height = 21 TabOrder = 1 end object PortEdit: TEdit Left = 192 Top = 196 Width = 65 Height = 21 TabOrder = 3 Text = '80' OnExit = PortEditExit OnKeyPress = PortEditKeyPress end object PageEdit: TEdit Left = 192 Top = 172 Width = 161 Height = 21 TabOrder = 2 end end object TPage Left = 0 Top = 0 Caption = 'Login' object Label13: TLabel Left = 16 Top = 32 Width = 286 Height = 13 Caption = 'Please enter username and password of your blog account.' Transparent = True WordWrap = True end object Label14: TLabel Left = 136 Top = 128 Width = 52 Height = 13 Caption = 'Username:' end object Label15: TLabel Left = 138 Top = 152 Width = 50 Height = 13 Caption = 'Password:' end object Label18: TLabel Left = 16 Top = 8 Width = 255 Height = 24 Caption = 'Enter username and password' Font.Charset = DEFAULT_CHARSET Font.Color = 14059352 Font.Height = -19 Font.Name = 'Trebuchet MS' Font.Style = [] ParentFont = False Transparent = True end object Image3: TImage Left = 8 Top = 48 Width = 100 Height = 210 AutoSize = True Picture.Data = {} end object UsernameEdit: TEdit Left = 200 Top = 124 Width = 153 Height = 21 TabOrder = 0 end object PasswordEdit: TEdit Left = 200 Top = 148 Width = 153 Height = 21 PasswordChar = '*' TabOrder = 1 end object chkSavePassword: TCheckBox Left = 200 Top = 176 Width = 97 Height = 17 Caption = 'Save password' TabOrder = 2 end end object TPage Left = 0 Top = 0 Caption = 'BlogID' object Label11: TLabel Left = 16 Top = 8 Width = 96 Height = 24 Caption = 'Select blog' Font.Charset = DEFAULT_CHARSET Font.Color = 14059352 Font.Height = -19 Font.Name = 'Trebuchet MS' Font.Style = [] ParentFont = False end object Label12: TLabel Left = 128 Top = 40 Width = 270 Height = 26 Caption = 'BlogJet has found more than one blog on your account. Please sel' + 'ect the blog you wish to add.' WordWrap = True end object ListBox1: TListBox Left = 128 Top = 80 Width = 273 Height = 177 ItemHeight = 13 TabOrder = 0 end end object TPage Left = 0 Top = 0 Caption = 'FTP' object Image5: TImage Left = 8 Top = 48 Width = 100 Height = 210 AutoSize = True Picture.Data = {} end object Label28: TLabel Left = 16 Top = 8 Width = 215 Height = 24 Caption = 'Configure FTP connection' Font.Charset = DEFAULT_CHARSET Font.Color = 14059352 Font.Height = -19 Font.Name = 'Trebuchet MS' Font.Style = [] ParentFont = False Transparent = True end object JvLinkLabel2: TJvLinkLabel Left = 112 Top = 237 Width = 249 Height = 13 Caption = 'I do not have a hosting with FTP support' Text.Strings = ( 'I do not have a hosting with FTP support') Transparent = False Layout = tlTop LinkColor = clHighlight LinkColorClicked = clRed LinkColorHot = clHotLight LinkStyle = [fsUnderline] HotLinks = False AutoHeight = True MarginWidth = 0 MarginHeight = 0 OnClick = JvLinkLabel2Click end object UseFTPCheck: TCheckBox Left = 98 Top = 40 Width = 327 Height = 17 BiDiMode = bdLeftToRight Caption = ' Use FTP to upload pictures and other files that I insert in tex' + 't.' ParentBiDiMode = False TabOrder = 0 OnClick = UseFTPCheckClick end object Panel2: TPanel Left = 96 Top = 64 Width = 361 Height = 169 BevelOuter = bvNone Color = clWhite TabOrder = 1 object Label23: TLabel Left = 16 Top = 38 Width = 74 Height = 13 Caption = 'Remote Folder:' end object Label24: TLabel Left = 256 Top = 4 Width = 24 Height = 13 Caption = 'Port:' end object Label26: TLabel Left = 16 Top = 110 Width = 52 Height = 13 Caption = 'Username:' end object Label27: TLabel Left = 16 Top = 134 Width = 50 Height = 13 Caption = 'Password:' end object Label25: TLabel Left = 16 Top = 71 Width = 49 Height = 13 Caption = 'Base URL:' end object Label34: TLabel Left = 125 Top = 20 Width = 116 Height = 11 Alignment = taRightJustify Caption = 'Example: ftp.myhosting.com' Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object Label35: TLabel Left = 162 Top = 54 Width = 159 Height = 11 Alignment = taRightJustify Caption = 'Examples: /public_html/blog, /web/blog' Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object Label36: TLabel Left = 150 Top = 87 Width = 171 Height = 11 Alignment = taRightJustify Caption = 'Example: http://www.myhosting.com/blog/' Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object JvLinkLabel3: TJvLinkLabel Left = 16 Top = 156 Width = 249 Height = 13 Caption = 'Test this configuration...' Text.Strings = ( 'Test this configuration...') Transparent = False Layout = tlTop LinkColor = clHighlight LinkColorClicked = clRed LinkColorHot = clHotLight LinkStyle = [fsUnderline] HotLinks = False AutoHeight = True MarginWidth = 0 MarginHeight = 0 OnClick = JvLinkLabel3Click end object Label22: TLabel Left = 16 Top = 4 Width = 57 Height = 13 Caption = 'FTP Server:' end object FTPHostEdit: TEdit Left = 96 Top = 0 Width = 145 Height = 21 TabOrder = 0 Text = 'ftp.myhosting.com' end object FTPFolderEdit: TEdit Left = 96 Top = 34 Width = 225 Height = 21 TabOrder = 2 Text = '/web/blog' end object FTPPortEdit: TEdit Left = 286 Top = 0 Width = 33 Height = 21 TabOrder = 1 Text = '21' OnExit = FTPPortEditExit OnKeyPress = PortEditKeyPress end object FTPUsernameEdit: TEdit Left = 96 Top = 106 Width = 161 Height = 21 TabOrder = 4 end object FTPPasswordEdit: TEdit Left = 96 Top = 130 Width = 161 Height = 21 PasswordChar = '*' TabOrder = 5 end object FTPURLEdit: TEdit Left = 96 Top = 67 Width = 225 Height = 21 TabOrder = 3 Text = 'http://www.myhosting.com/blog/' end end end object TPage Left = 0 Top = 0 Caption = 'Images' object Label29: TLabel Left = 16 Top = 8 Width = 216 Height = 24 Caption = 'File Upload Configuration' Font.Charset = DEFAULT_CHARSET Font.Color = 14059352 Font.Height = -19 Font.Name = 'Trebuchet MS' Font.Style = [] ParentFont = False end object Image6: TImage Left = 8 Top = 48 Width = 100 Height = 210 AutoSize = True Picture.Data = {} end object Label30: TLabel Left = 146 Top = 131 Width = 203 Height = 13 Caption = 'Path for files on host (blank for blog root):' Enabled = False end object Label31: TLabel Left = 146 Top = 184 Width = 108 Height = 13 Caption = 'Address of files (URL):' Enabled = False end object Label32: TLabel Left = 128 Top = 40 Width = 256 Height = 26 Caption = 'You can enter custom settings for publishing pictures and other ' + 'files that you insert in posts.' WordWrap = True end object Label33: TLabel Left = 328 Top = 169 Width = 72 Height = 11 Caption = 'Example: images/' Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object ImagesPathEdit: TEdit Left = 144 Top = 148 Width = 259 Height = 21 Enabled = False TabOrder = 0 OnChange = ImagesPathEditChange end object ImagesURLEdit: TEdit Left = 146 Top = 200 Width = 257 Height = 21 Enabled = False TabOrder = 1 end object RadioButton1: TRadioButton Left = 128 Top = 80 Width = 241 Height = 17 Caption = 'Use default upload location' Checked = True TabOrder = 2 TabStop = True OnClick = RadioButton1Click end object RadioButton2: TRadioButton Left = 128 Top = 104 Width = 185 Height = 17 Caption = 'Use custom settings:' TabOrder = 3 OnClick = RadioButton1Click end end object TPage Left = 0 Top = 0 Caption = 'Finished' object Label16: TLabel Left = 120 Top = 88 Width = 148 Height = 13 Caption = 'Enter the title for this account:' end object Label17: TLabel Left = 120 Top = 144 Width = 131 Height = 13 Caption = 'Address of your blog page:' end object Label19: TLabel Left = 16 Top = 8 Width = 273 Height = 24 Caption = 'Enter Account Title and Address' Font.Charset = DEFAULT_CHARSET Font.Color = 14059352 Font.Height = -19 Font.Name = 'Trebuchet MS' Font.Style = [] ParentFont = False end object BlogTitleEdit: TEdit Left = 120 Top = 108 Width = 273 Height = 21 TabOrder = 0 end object AddressEdit: TEdit Left = 120 Top = 160 Width = 273 Height = 21 TabOrder = 1 Text = 'http://' end end end object Panel1: TPanel Left = 0 Top = 265 Width = 466 Height = 39 Align = alBottom BevelOuter = bvNone TabOrder = 1 object StatusLabel: TLabel Left = 11 Top = 12 Width = 66 Height = 13 Caption = 'Connecting...' Visible = False end object btnNext: TButton Left = 288 Top = 7 Width = 75 Height = 25 Caption = 'Next >' Default = True TabOrder = 0 OnClick = btnNextClick end object btnCancel: TButton Left = 384 Top = 7 Width = 75 Height = 25 Cancel = True Caption = 'Cancel' TabOrder = 1 OnClick = btnCancelClick end object btnBack: TButton Left = 208 Top = 7 Width = 75 Height = 25 Caption = '< Back' Enabled = False TabOrder = 2 OnClick = btnBackClick end end end